home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-13 / me_cd22.zip / MUTT2.ZIP / SSCROLL.MUT < prev    next >
Text File  |  1992-04-27  |  353b  |  19 lines
  1.   ;; C Durland    Public Domain
  2. (defun
  3.   smooth-scroll-up
  4.   {
  5.     (if (== 1 (window-row)) (scroll-up))
  6.     (previous-line)
  7.   }
  8.   smooth-scroll-down
  9.   {
  10.     (if (== (window-row)(window-height -1)) (scroll-down))
  11.     (next-line)
  12.   }
  13.   MAIN
  14.   {
  15.     (bind-to-key "smooth-scroll-up"   "F-C")
  16.     (bind-to-key "smooth-scroll-down" "F-D")
  17.   }
  18. )
  19.